Run Magazine ReRun 1989 July & August/rerun-1989-07-08.d64/storybook 64

Commodore BASIC | 1989-01-01 | 1.2 KB | 36 lines

5 print"[147]":fori=1to10:print:next:printspc(9)"poking the memory mover"
7 sa=53000:ck=0
8 form=0to212:read d
9 pokesa+m,d:ck=ck+d:next
10 data 32,253,174,32,138,173,32,247
11 data 183,132,195,133,196,32,253,174
12 data 32,138,173,32,247,183,132,193
13 data 133,194,32,253,174,32,235,183
14 data 138,240,8,120,165,1,72,41
15 data 253,133,1,24,165,20,101,193
16 data 133,20,165,21,101,194,133,21
17 data 160,0,177,195,145,193,230,195
18 data 208,2,230,196,230,193,208,4
19 data 230,194,240,20,165,194,197,21
20 data 208,232,165,193,197,20,208,226
21 data 138,240,4,104,133,1,88,96
22 data 136,208,245,0,0,0,0,0
23 data 0,32,155,183,134,254,162,0
24 data 169,0,133,250,133,252,138,72
25 data 162,32,160,128,165,254,208,6
26 data 134,251,132,253,240,4,134,253
27 data 132,251,104,170,188,212,207,169
28 data 64,197,250,208,10,169,63,197
29 data 251,240,43,197,253,240,39,177
30 data 250,145,252,165,254,208,4,169
31 data 0,145,250,138,72,174,220,207
32 data 202,208,253,104,170,165,250,24
33 data 105,8,133,250,133,252,144,207
34 data 230,251,230,253,208,201,232,224
35 data 8,208,165,96,0,4,2,6
36 data 1,5,3,7,1
37 p$="demo part 1":poke53281,0:poke53280,6
38 printchr$(19):fori=1to12:print:next:printspc(9)"loading story..."
39 print"[144]":print:print:print"load";chr$(34);p$;chr$(34);",8":print:print
40 print:print:print"run":printchr$(19):poke198,2:poke631,13:poke 632,13